home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / SpeakFreely_Src / libdes / PC2 < prev    next >
Encoding:
Text File  |  2000-05-27  |  861 b   |  58 lines
  1. #!/usr/local/bin/perl
  2.  
  3. @PC2_C=(14,17,11,24, 1, 5,
  4.      3,28,15, 6,21,10,
  5.     23,19,12, 4,26, 8,
  6.     16, 7,27,20,13, 2,
  7.     );
  8.  
  9. @PC2_D=(41,52,31,37,47,55,
  10.     30,40,51,45,33,48,
  11.     44,49,39,56,34,53,
  12.     46,42,50,36,29,32,
  13.     );
  14.  
  15. foreach (@PC2_C) {
  16.     if ($_ ne "-")
  17.         {
  18.         $_--;
  19.         printf "%2d  ",$_; }
  20.     else { print "--  "; }
  21.     $C{$_}=1;
  22.     print "\n" if (((++$i) % 8) == 0);
  23.     }
  24. $i=0;
  25. print "\n";
  26. foreach (@PC2_D) {
  27.     if ($_ ne "-")
  28.         {
  29.         $_-=29;
  30.         printf "%2d  ",$_; }
  31.     else { print "--  "; }
  32.     $D{$_}=1;
  33.     print "\n" if (((++$i) % 8) == 0); }
  34.  
  35. print "\n";
  36. foreach $i (0 .. 27)
  37.     {
  38.     $_=$C{$i};
  39.     if ($_ ne "-") {printf "%2d ",$_;}
  40.     else { print "--  "; }
  41.     print "\n" if (((++$i) % 8) == 0);
  42.     }
  43. print "\n";
  44.  
  45. print "\n";
  46. foreach $i (0 .. 27)
  47.     {
  48.     $_=$D{$i};
  49.     if ($_ ne "-") {printf "%2d  ",$_;}
  50.     else { print "--  "; }
  51.     print "\n" if (((++$i) % 8) == 0);
  52.     }
  53. print "\n";
  54. sub numsort
  55.     {
  56.     $a-$b;
  57.     }
  58.